Ask_Message AbortYN 0 '~m(1,1,1,1)~w(35)~hCDPMenu is about to Upgrade Aladdin, the communcations program for GEnie. If you would like to abort the installation Please select No Now.~n~n~kContinue Upgrading?~n~k~i(1)~e &Yes ~e ~d(2)~e &No ~e'
If '@Num(AbortYN) = 2' then Abortexit
;
; Step 1 Get the target directory for the installation
;
Ask_Value Target 122 C:\Aladdin '~m(1,1,1,1)~hInstallation Directory~nWhat directory should CDPMenu use to Upgrade Aladdin?~nHit enter to accept the default.~n~n~k~I(1)Directory: ~e ~e'
;
; Step 2 Check the directry and if not present create it.
;
Define_Var Target @AddBacks(Target)
If @IsDir(Target) then DirCreated
Ask_message CopyProg 0 '~m(1,1,1,1)~w(45)~hRequire Directory not Found~nCDPMenu is unable to locate the directory, please either Install Aladdin or specify the directory containing the old version of Aladdin~n~n~k~I(1)~eO&k~e'
goto ExitFatal
;
:DirCreated
;
; Step 3 Define a logical for target called target to copy the files to
;
Define_log Target target
;
; Step 4 Copy all the Data files from the CDROM directory to the target directory.
;
Copy Aladdin:alad.exe Target:*.*
Copy Aladdin:aladdin.exe Target:*.*
Copy Aladdin:aladdin.hlp Target:*.*
Copy Aladdin:genie.lst Target:*.*
Copy Aladdin:AladCvt.exe Target:*.*
;
Ask_Message CopyProg 0 '~m(1,1,1,1)~w(45)~hUpgrade Complete~nAladdin Ready, Review the documentation, Change to the Aladdin Directory and type Aladdin to start.~n~n~k~I(1)~eO&k~e'